Funcția TITLECASE() este concepută pentru a converti textul existent în format de antet și returnează un set de cuvinte sub forma:
Codul funcției Title Case înlocuiește separatorii precum cratimele și liniuțele de subliniere cu spații, convertește toate cuvintele în majuscule și convertește conjuncțiile în litere mici.
Title Case poate fi util pentru corectarea cazurilor în titlurile de știri, titlurile articolelor de pe site sau titlurile videoclipurilor YouTube.
TITLECASE() este similar cu funcția standard PROPER(), cu excepția faptului că conjuncțiile nu sunt scrise cu majuscule.
Iată codul macro pentru a crea o funcție personalizată care poate afișa text ca titluri (Title Case) în LibreOffice Calc.
Deschideți meniul Tools - Macros - Edit Macros..., selectați Module1 și copiați următorul text în modul:
Function TitleCase(ByVal str As String) As String
'moonexcel.com.ua
Dim words As Variant
Dim FCalc As Object
FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
oddWordsLat = "A|An|And|As|At|But|By|En|For|If|In|Is|Of|On|Or|The|To|Vs|Via"
oddWordsCyr = "І|Як|На|Але|Для|Якщо|В|Чи|До|Через|Та|Від|Під|Над|И|Как|Но|То|Или|От|Под|К"
words = Split(oddWordsLat + "|" + oddWordsCyr,"|")
str = FCalc.callFunction("PROPER", Array(str))
For i = LBound(words) To UBound(words)
pattern = "(?!^)\b" + words(i) + "\b"
replacement = LCase(words(i))
str = FCalc.callFunction("REGEX", Array(str,pattern,replacement,"g"))
Next i
TitleCase = str
End Function
Apoi închideți Macro Editor, reveniți la LibreOffice Calc și utilizați noua noastră funcție în orice celulă.
De asemenea, puteți utiliza funcția TITLECASE() prin instalarea extensiei gratuite YouLibreCalc.oxt sau versiunea sa cu funcții complete YLC_Utilities.oxt .
După aceea, această funcție va fi disponibilă în toate fișierele care vor fi deschise în LibreOffice Calc.